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15-SEP-1984 ae eis cro V04-00 P 
Pattee 1 93: 29:25 :40 YBASRIL. SR RCIBA BASMATNUL .MAR; 1 — 
1 ~TITLE BASSMAT_NULL 
5 -IDENT /1-004/~ : File: BASMATNUL.MAR EDIT:MDL1004 
09 ¢ J enaqenneensecqnesqoneneqnoneqnsebdsenenasneeeneeeorensecsceqseeesonaseuncett 
3* & 
4 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
00 8 :* DIGITAL EQUIPMENT eGORPORATION, MAYNARD, MASSACHUSETTS. : 
444 19 ‘* ALL RIGHTS RESERV * 
é ® 
$008 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
4 1 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bicen SE AND WITH THE * 
0 15 ;* INCLUSION OF THE ABOVE Sage Ned NOTICE. THIS soft WARE OR ANY ek * 
000 14 ;* COPIES THEREOF MAY -" BE PROVIDED OR OTHER WISE MADE AVAILABLE TO AN * 
0000 15 ;* OTHER PERSON. NO TITLE TOG AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 16 :* TRANSFERRED. . 
PY ® 
4 18 3* THE ripe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
+44 Y :* CORPORATION. * 
3 ® 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. e 
000038 fs ; 
bd ® 
44 $ ITTITIIIIIIIIIITITITI TITTLE L EET 
0000 8° 
0000 9 54+ 
0000 OQ ; FACILITY: BASIC code support 
0000 1 3 
44 3 3; ABSTRACT: 
$000 4; This module initializes a string matrix to have a null string 
44 2 3 for each element. 
38 i : ENVIRONMENT: User Mode, AST Reentrant 
000 9 j-- 
44 29 3 AUTHOR: R. Will, CREATION DATE: 30-May-79 
9000 4@ : MODIFIED BY: 
4 43; 
O65 44 ; 1-001 - Original 
00 45 ; 1-002 - Make references to bounds signed. Rw 7-Jun-7 
B88 of 3; 1-003 = Change shared external references to G* RNH 2. -Sep-81 
000 47 ; 1-004 - make ALL external references G*. MDL 26-May-1985 


DECLARATIONS 6-SEP BASRTL. SRC JBASMATNUL.MAR; 1 
.SBTTL DECLARATIONS 
; INCLUDE FILES: 
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Oo 


SDSCDEF ; define descriptors 


EXTERNAL DECLARATIONS: 


-DSABL GBL Prevent undeclared 
symbols from et ' 
al. 


quteneticas ly y o's $ 


-EXTRN BASSK_ARGDONMAT signalled i blocks 
not present > array desc 
or dimct = 0 


-EXTRN BASSSTORE_BFA array element store 
-EXTRN BAS$S$STOP™ signal fatal errors 


> MACROS: 


> EQUATED SYMBOLS: 


0000000C index! = 12 ; stack offset of index! 
; before call to store 
00000010 index2 = 16 ; stack offset of index2 
; before call to store 
00000018 dsc$l_l1_1 = 3 : if 1 sub 
0000001C dsc$l_ul_1 = 28 ; desc offset if 1 sub 
0000001C dsc$l_l1_2 = $8 ; desc offset if 2 sub 
00000020 dsc$l_ul_2 = 32 ; desc offset if 2 sub 
00000024 dsc$l_l2_2 = 36 : desc offset if § sub 
00000028 dsc$l_u2_2 = 40 ; desc offset if 2 sub 
: OWN STORAGE: 
: PSECT DECLARATIONS: 
0000 


~-PSECT _BASSCODE PIC, USR, CON, REL, LCL. SHR, - 
EXE, RD, NOWRT, LONG 


SOOOCOCOOCOOOOSOOSOOSOOSOSOSOSOSOSOSOOSOSOOOOOOOOOCOOOOOOOOOOOOOO 

SOOSOSCSCSSOSOSOSOSOSSOSOSOSOSSOSOSOSOSOSOSOSOSOSOSOSOSOOSOOSOOOSOOOOOSOOOSOOOoOO 

OOO OOOO 00009 0960 09 09 09 09 09 09 IIIS NNN NNR AA AAA AAAA MMIII 

NOAA AN 9S OO NAME WN SO OD NAME WW $0 OONAUE WO OONOULSWN—O/0 
. 


SOOoOoOOooooooooooooooooooooooooooooooooooooosooo 
CGOOOOCOCOOCOOSCOSOSOOSOSSSSSSOOCSOOCCOOOSOSOOOOOOOOOOOOOOOO 


I 
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a ~SBTTL BASSMAT_NULL = Initialize a string matrix to null matrix 
FUNCTIONAL DESCRIPTION: 
0 


This routine initializes each element of a ee array to the 
null string. It does this by copying a null string to each elemnt. 


; CALLING SEQUENCE: 
: CALL BASMAT_NULL (matrix.wx.da) 


OCOooocccoo 


: INPUT PARAMETERS: 

: NONE 

: IMPLICIT INPUTS: 

: NONE 

; OUTPUT PARAMETERS: 

00000004 matrix = 4 

IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
This routine will call the BASIC array fetch and store routines and so 


may cause any of their errors to be signalled. It may also signal any 
of the errors Listed in the externais section. 


Bee Ge Ge Se Be Be Se Se Se Seis Ge Se Ge Se Ge 


REGISTER USAGE 
R current bound for Ist subscript 
R upper bound for ist subscript 


RG lower bound for gnd subscript 
RS upper bound for 2nd subscript 
R6 current value of 2nd subscript 


SOSCOCOCOSOSCSOSOSSOSSOSOSOSSOSSOSSSSOSSSOSOSOSOSOOSOSOSOOSOOOOSOOOO 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSES 
OOOCOCCOCOCOOCOCOCOOCOCCOOCSOOOCSOOCOCOOCOOOOoOoOoOOO 


-ENTRY BASSMAT_NULL, “M<R2,R3,R4,R5,R6,1V> 
+ 
3: If block 2 of array descriptor (multipliers) is not present then error. 

MOVE matrix(AP), RO 3; get pointer to mat descriptr 


407C 
50 04 AC 00 


SOOCSCOCSOOSOSOSOOOSOSOOSSOSSSOSOOSOSSOSOSSSSOSOSOSOSOOSOOOOSOOSOOSOOOOSOOOOOOOO 


ee SY 


DUP BB BBB BEE SE EWN WIA PONPUPONIPONINI NY 2 2 2 OS OS OOO 
OE WN OOO NAUSEA 0 CDNA WN CO OO NOUS WR) —O ODNAUES WN OOO NOUS WO 


Soooooooo 


o-oo OO  -- 


| 
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6— 0A AO 3«2(07)~=«CE1 «=20006-~Sls § BBC #OSCSV_FL_BOUMUS, DSCSB_AFLAGS(RO), ane ARGDONMAT 
; Sam ; exit Tf block 3 not 
B 158 i present in descriptor 
0B 159 
OB 160 ;+ 
00B 161 ; Initialize stack for CALLG to element store routine. Then divide alge thm 
008 166 ; based on number of subscripts. 
008 163 ;- 
7E D4 SOB 188 CLRL (SP) i fd i 
- ; pointer of descriptor 
0100000 BF DD 9009 166 PUSHL #<<DSCSK_CLASS_S @ 24> + <DSCSK_DTVPE T @ 16>>'; Ist desc word 
Bat 16 ; class, type and 0 Length 
— 6. 1 168 CLRQ -(SP) ; space for indices 
50 DD 0015 169 USHL Rg ; ptr to dest desc for call 
OC AE OF O017 170 PUSHAL 12(SP) ; pointer to NULL descriptor 
01 OB AO 91 QOIA 171 CMPB DSCSB_DIMCT(RO), #1 ; determine # of subscripts 
05 13 a3 178 BEQLU INIT_ONE_SUB ; 1 sub. go in 
1A sOo1A 3 17 BGTRU INIT_TWO SUBS 3; >=2 subs, go init 
0054 31 0022 174 BRW ERR_ARGDONMAT ; 0 subs, error 
0025 175 
0025 176 ;+ 
0025 77; There is only 1 subscript. Make both yoper and lower bound for 2nd 
0025 178 ; subscript a 1. A second subscript will be passed to and ignored by the 
0025 179 ; store routine because the argcount in the arglist of the CALL will not 
bo58 139 3 include the 2nd subscript. Put bounds ‘or 1st subscriot into registers. 
0025 136 
0025 183 INIT_ONE_SUB: 
03 DD 0025 184 PUSHL #3 :; 3 arguments to store routine 
0027 185 : _ignores 2nd index 
53 1C AO DO 0027 186 MOVL dsc$l_u1_1(RO), R3 ; Ist upper bound 
52. 18 AO 00 0028 187 MOVL dsc$l_l1_1(RO), R2 ; 1st lower bound 
03 14 OO2F 188 BGTR 1$ : not 0 or neg, init 2nd bound 
52 01 00 0031 189 MOVL #1, R2 ; don't alter row 0 
54 01 00 0034 190 1$: MOVL #1, R4 3; set 2nd lower bnd to 1 
55 01 00 0037 191 MOVL #1, R 3; set 2nd upper bnd to 1 
1¢ 11 OO3A 198 BRB LOOP_1ST_SUB ; go loop 
003c 80:19 
003C 194 ;+ 
003C 195 ; There are 2 subscripts. Put the upper bound for both subscripts in 
003C 196 ; registers and make sure that the lower bound for both subscripts will start 
003C 197 ; at 1 (do not alter row or col 0) 
003C 198 ;- 
Opec 199 
C sot INIT_TYO SUBS: : 
04 dD 003C 01 Puss 24 : 4 arguments to store routine 
55 28 AO 00 Bn75 sos MOV dsc St ug 2 (RO). R5 : 2nd upper bound 
54 24 A0 00 004 0 MOVL dsc$l_l2_2(RO), R4 ; 2nd lower bound 
03 14 0046 Soe BGTR 1$ ; not col 0 or neg. do cols 
54 01 DO 0048 05 MOVL #1, R4 3 start with col 
53 20 A0 00 0048 06 1$ MOVL Gsc$t ul g {RO}. R3 ; Ist upper bound 
52. 1C AO DO O04F 07 MOVL dsc$l_11_2(RO), R2 ; 1st lower bound 
03 14 0053 08 BGTR LOOP_TS1_Sué ; not row 0 or neg. go loop 
52 01 00 0036 9 MOVL #1, R2 : start with row 
038 11 3+ 
005 12 ; Loop through all the rows. Row and column upper and lower bounds have been 
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5 13 ; initialized in registers. 
Be 
2 18 LOOP_1ST_ SUB: 
56 54 00 5 1 MOVL R4, R6 7; R6 has 1st lower bound 
ae 
058 0 ; Loop through all the elements (columns) of the current row. Column lower 
9058 1 ; bound is initialized in R6. Column upper bound is in R5. 
O36 558° 
038 4 LOOP_2ND_SUB: 
10 AE 56 DO 0058 § MOVL R6, index2(SP) : current column 
OC AE 52 DO OOSF R2, index1(SP) 3 current row 
00000000 ' GF gE FA 0065 8 CALLG (SP), G“BASSSTORE_BFA ; store in array 
3 get next column 
55 56 D1 006C 0 CMPL R6, RS 3 See if last column done 
EA 15 OQ06F 31 SLEQ LOOP_2ND_SUB 3; no, continue inner loop 
bor] 585 z+ 
0071 234 : Have completed entire row. See if it was the last row. If not, 
0071 235 ; continue with next row. 
oor] 337 
52 06 0071 238 INCL Re : get next row 
53 52 01 0073 239 CMPL R2, R3 : see if last row done 
EO 3615 Bare $79 BLEQ LOOP_1ST_SUB 3 no, continue outer loop 
04 Bane $08 RET : yes, finished 
079 244 ERR_ARGDONMAT: 
00000000°8F DD 0079 245 PUSHL #BAS$K_ARGDONMAT ; signal error, 0 for dimct 
00000000°GF 01 FB 144 $$ CALLS #1, G*BASS$$STOP 3; or block 2 or 3 absent 
0086 248 END : end of BASSMAT_NULL 


or eat meee ea ig@ eh ee 
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Symbol fable Pa}986 10:30:40 LBASRTE SAE IBASMATHOL maR:1 2% (9) 
BASSSSTOP eeereeee xX 0 
BAS$K_ARGDONMAT reereere * 
BASSMAT NULL 00000000 RG 
BASSSTORE_BFA eeeeeeee 8X 
DSCSB_AFLAGS = 0000 Opa 
DSCSB_DIMCT = 4 38 
DSC$K-CLASS_ = 00000001 
DSCSK_DTYPE_T = 444 649 
DSCSL_L1_1 = 0000001 
dstst}.g = 444 8h 
DSCSL_L2_ = 00000024 
DSC$L_U1_1 = 44th 
beeat “273 = 00000 $3 
DSC$L_U2 = 000000 ° 
DSCSV. FL” BOUNDS = 0000000 
ERR_ARGDONMAT 00000079 R 02 
INDEX? = 0000000C 
INDEX2 = aaa gh 
INIT_ONE_SUB a4 4 R sf 
INIT~TWO_SUBS 0000003C R 0 
LOOP_1ST_ 00000058 R 02 
LOOP 2ND_SUB 00000058 R 02 
x = 00000004 

poss ose seaman se mem + 

: ; Psect synopsis ! 

inna 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00090000 ( 0.) OO ¢ O.) NOPIC USR CON ABS LCL aoe NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 00000000 ( 0.) O01 ¢ +41.) NOPIC USR CON’ ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_BASSCODE 00000086 ( 134.) 02 ¢ 2.) PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 

Pinnstiernaiel 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 28 00:00:00.08 0:00:00.43 
Command processing 103 00:00:00.50 0:00:01.89 
pore TF ee , 135 88:85:00 3 BO OD 18 Le 
m able sor :00:00. :00:00. 

Pass 2 s$ 0:00;00:68 90500209 8 
Symbol table output 4 Ss Sha SS B97 38 280 «8 
Psect synopsis output 00:00:00.02 0:00:00.02 
Cross-reference output BF 88:80 9P 00:00:00.00 
Assembler run totals 32 00:00:03.26 00:00:10.36 


928 working set Limit was 1350 pages. 
282 bytes (19 pages) of virtual memory were used to buffer the intermediate code. 
re were 9 pages of symbol table space ae eceter to hold 149 non-local and 2 local symbols. 
seg source lines were read in Pass 1, producing | object records in Pass 2. 
pages of virtual memory were used to define 7 macros. 


Tee facto Run Statistics % b-8E Pe] 71382 5; " 4 YeASRTi gs L.S RE IBASMATNUL.« MAR; 1 _ (3) 


Poe a mane ns noe nna eee we a wae} 


! Macro Library statistics ! 


¢eomeecsrmwmmeosrescen sev aero sc eens} 


Macro Library name Macros defined 
“$255$DUAZ8: (SYSLIBISTARLET.MLB;2 Sra RN 
190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESS1ION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=L1IS$:BASMATNUL/OBJ=0BJ$:BASMATNUL MSRC$:BASMATNUL/UPDATE=(ENHS$:BASMATNUL ) 
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